home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000121_bounce-amos-li…net@onelist.com_Sun Sep 6 09:43:11 1998.msg < prev    next >
Text File  |  1998-10-01  |  6KB  |  213 lines
  1. >From bounce-amos-list--981-mcox=access.digex.net@onelist.com  Sun Sep  6 09:43:11 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.229])
  3.     by pony-1.mail.digex.net (8.8.8/8.8.8) with SMTP id JAA13704
  4.     for <mcox@access.digex.net>; Sun, 6 Sep 1998 09:43:10 -0400 (EDT)
  5. Received: (qmail 10658 invoked by alias); 6 Sep 1998 13:41:02 -0000
  6. Received: (qmail 10652 invoked from network); 6 Sep 1998 13:41:00 -0000
  7. Received: from unknown (HELO mail.enterprise.net) (194.72.192.18) by pop.onelist.com with SMTP; 6 Sep 1998 13:41:00 -0000
  8. Received: from enterprise.net (root@ppp-368.telinco.net [212.1.131.69]) by mail.enterprise.net (8.8.5/8.8.5) with SMTP id OAA24156 for <amos-list@onelist.com>; Sun, 6 Sep 1998 14:43:01 +0100 (GMT/BST)
  9. From: Andrew Crowe <andrewcrowe@enterprise.net>
  10. To: amos-list@onelist.com
  11. Date: Sun, 06 Sep 1998 14:41:13 +0000
  12. Message-ID: <yam7553.685.1198026832@mail.enterprise.net>
  13. In-Reply-To: <000f01bdd98c$cb09ae20$d13963c3@np5gt>
  14. X-Mailer: YAM 2.0 Preview5 - Amiga Mailer by Marcel Beck - http://www.yam.ch
  15. Organization: Manta Soft
  16. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  17. Delivered-To: mailing list amos-list@onelist.com
  18. Precedence: bulk
  19. Reply-to: amos-list@onelist.com
  20. Mime-Version: 1.0
  21. Content-type: multipart/mixed; boundary="BOUNDARY.1198026832.2"
  22. Subject: [amos-list] rotating zoom fix
  23. Status: O
  24. X-Status: 
  25.  
  26. From: Andrew Crowe <andrewcrowe@enterprise.net>
  27.  
  28. Warning: This is a message in MIME format. Your mail reader does not
  29. support MIME. Some parts of this message will be readable as plain text.
  30. To see the rest, you will need to upgrade your mail reader.
  31.  
  32.  
  33. --BOUNDARY.1198026832.2
  34. Content-Type: text/plain
  35.  
  36. Hi Everybody,
  37.  
  38. > Hello! There! Thanx for the Code... But there is a problem...
  39. > The 3dgood_int prog Had unknow stuff in it... I don't know if its some
  40. extension i don't
  41. > have or just it got scrambled on the cross over as I have heard that
  42. lha's are unstable
  43. > across the net.. Heres what I recieved! The other one worked fine...
  44. Thanx!
  45.  
  46. Opps! forgot to take out the AMOSTurbo extention commands. You must not
  47. have it/have a different version to me.
  48.  
  49. Here it is in asc format.
  50.  
  51. See ya.
  52. -- 
  53.                                 <PRE>
  54.   - --------------------- Quote of the day: ---------------------- -
  55. Everything should be made as simple as possible, but not simpler.
  56. -- Albert Einstein
  57.  
  58. +--------------------------------------------------------------------+
  59. |                                                ,aNNN               |
  60. |  a&   NL                 ,a,                 ,gNNNNN               |
  61. |  @7L d 0   ,a,,aw ,a,,  JN Q,  ,a,,aw,,,,  ,gNM"`NN'               |
  62. | J  9w"  K N" "" NN"""""WF  ~3&N" "" N   ""^N"    NF                |
  63. | N , " , Nd ,@M, NN JML @ML d@N ,@4, N       ',  JK                 |
  64. |d JMc dN  N  NN  NN 0 1 1J1 0 0  NN  N         L,K                  |
  65. |N,N 0w' Na@h,,a,,NQ,0 &J1J&,0  \,,a,,N         JF                   |
  66. | ""  "  ~"  ""~"""~"" ""  """  t""~"""        j"1                   |
  67. |                               F             JgmJ        ,gm        |
  68. |                               F            N"  N  ,,    F ,N gNN   |
  69. |      Andrew Crowe             Q          jJF  mP p""9w,NL NwmP 0mw |
  70. |      ~~~~~~~~~~~~             ]         / I  0 F@ am, Nw  ,0&   ,N |
  71. |       Manta Soft             ,F\      a' ,N  Nf L E 0 0ML N""N 0"  |
  72. |       ~~~~~~~~~~            ,N  \,  ,P N@"  JF  & `@" NJL N  N 0   |
  73. |                            ,N     ad"   \wam"   `Nx,aN JNmN  NmN   |
  74. |                            NN ,,gN" ""PP"                          |
  75. |                           dNNNNN"                                  |
  76. |                           NNN@"      Web Designing and          // |
  77. | Visit our Web Site:       ""               Amiga Programming \\//  |
  78. |                                                                    |
  79. |     HTTP://www.geocities.com/Eureka/Gold/1713/                     |
  80. |                                                                    |
  81. +----------------------------+      This signature was created using |
  82. | andrewcrowe@enterprise.net |         AsciiArt Studio               |
  83. +----------------------------+---------------------------------------+
  84.                                 </PRE>
  85. --BOUNDARY.1198026832.2
  86. Content-Type: text/plain; name="rot_zoom.asc"
  87. Content-Disposition: attachment; filename="rot_zoom.asc"
  88.  
  89. Input "What Detail (1-200) ?";SKL
  90.  
  91. ST:
  92.  
  93. Trap Load Iff "3d/worldmap.lores",0
  94.  
  95. If Errtrap : Dir$="work:amospro/" : Goto ST : End If 
  96.  
  97. Load Iff "3d/worldmap.lores",1
  98.  
  99.  
  100.  
  101. Screen 0
  102. Cls 0
  103.  
  104. Degree 
  105.  
  106.  
  107. 'Double Buffer 
  108. Autoback 0
  109.  
  110.  
  111.  
  112. PX=160
  113. PY=100
  114.  
  115. Screen To Front 0
  116.  
  117.  
  118. MX=320/SKL
  119. MY=200/SKL
  120.  
  121.  
  122.  
  123.  
  124.  
  125. ZOM=2
  126.  
  127.  
  128. Do 
  129.    
  130.    Timer=0
  131.    
  132.    
  133.    ROTATE[ANG,ZOM,MX,MY,PX,PY,SKL]
  134.  
  135.    T#=Timer+1
  136.  
  137.    Screen 0
  138.    F Plot ZOM,220,1
  139.  
  140.    Print At(0,0);"VBL:";T#-1;"  ","FPS:";50/T#;"  "
  141.    
  142.    Screen Swap 
  143.    Wait Vbl 
  144.    
  145.    ANG=ANG+10
  146.    ZOM=ZOM+1
  147.    
  148.    'If Jleft(1) 
  149.    '   ANG=ANG+10 
  150.    'End If  
  151.    'If Jright(1)
  152.    '   ANG=ANG-10 
  153.    'End If  
  154.    ''Bell   
  155.    
  156. Loop 
  157.  
  158.  
  159. Procedure ROTATE[ANG,ZOM,MX,MY,PX,PY,SKL]
  160.    
  161.    MX2=MX/2
  162.    MY2=MY/2
  163.    
  164.    ZOM=ZOM*SKL
  165.    'ZOM#=ZOM#/64
  166.    
  167.    S=Sin(ANG)*256
  168.    C=Cos(ANG)*256
  169.    
  170.    For Y=0 To MY
  171.       
  172.       'BY=(Y^2)/(128/skl)
  173.       
  174.       For X=0 To MX
  175.          
  176.          
  177.          
  178.          XM=(X-MX2)*ZOM
  179.          YM=(Y-MY2)*ZOM
  180.          
  181.          OX=XM*C+YM*S+Rnd(16384)
  182.          OY=YM*C-XM*S+Rnd(16384)
  183.          
  184.          
  185.          
  186.          
  187.          OX=OX/16384 : OY=OY/16384
  188.          
  189.          Screen 1
  190.          P=F Point(OX+PX,OY+PY)
  191.          If P>-1
  192.             
  193.             Screen 0
  194.             Trap F Plot X*SKL,Y*SKL,P
  195.             'If SKL>1
  196.             'F Plot X*SKL+1,Y*SKL+1,1
  197.             'End If  
  198.             
  199.          End If 
  200.          
  201.          
  202.          'Trap F Plot X*SKL,Y*SKL/2+50+BY,P 
  203.          'Ink P : Bar X*SKL,Y*SKL To X*SKL+SKL,Y*SKL+SKL
  204.          
  205.          
  206.       Next 
  207.    Next 
  208.    
  209. End Proc
  210.  
  211. --BOUNDARY.1198026832.2--
  212.  
  213.